Top 10k strings from Fairshare (1984)(Griffin Software)(Part 2 of 2).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 yp=yp+dr+7
   2 ;a$+a$+a$+a$(
   2 ;"How many";
   1 ti=ti+(c$>"  "):
   1 query=rem:
   1 query=ans:
   1 j-x2,y;"G"
   1 intro=4000
   1 h-x2,v;"J"
   1 getrem=840
   1 getpic=900
   1 getans=830
   1 fadeout=940
   1 fadein=930
   1 div=div-by:
   1 div=div+rem
   1 c$<query;"  Less  "
   1 boxes are at 21,y/8
   1 b(p)=b(p)+1
   1 b$="remainder":
   1 b$="89:;<=":
   1 b$="234567":
   1 b$=",-./01":
   1 b$="()*+":
   1 b$="$%&'":
   1 b$=" !""#":
   1 b$="  Setting the sums  ":
   1 b$="   Press any key for a sum    ":
   1 at upwards intervals of y1/8
   1 ans=div/by:
   1 action=800
   1 NUMBERS=85
   1 LIBRARY ROUTINES
   1 CDBTKLABABABCDEFGHCDAJKLBABUMNNMMDKLCONDKLMPATATCDQJKLCRKSAT
   1 BOXES=1500
   1 ;"to wake ";
   1 ;"me up   ":
   1 ;"in each ";
   1 ;"Press W";
   1 ;"NOCRTTCOCDANDACRTCOCD"
   1 ;"IAMDABTABTTH";
   1 ;"BAKSTTAAKLABTAKSTAAKL"
   1 ;"BABTTTH";
   1 ;"89:;<=";
   1 ;"234567";
   1 ;",-./01";
   1 ;" please ":
   1 ;" over?  "
   1 ;" box?   "
   1 ;" again, ";
   1 ;" To get EDIT,";
   1 ;" Press X to change your mind, or
   1 ;" Press N for no remainders "'"
   1 ;" Press EDIT now,";
   1 ;" Press 1 for up to 10 objects "'"
   1 ;" If you want to set";
   1 ;" How many boxes?  2,3,4 or 5? ":
   1 ;"  than  ";
   1 ;"  left  ";
   1 ;"  Yes   ";
   1 ;"  Try   ";
   1 ;"  More  "
   1 ;"  Good  "
   1 ;"   ";c$;"   ":
   1 +zob1;a$+a$(
   1 *(dv-by))+by+1
   1 *(b(j)=ans):
   1 )="NMMDKL"
   1 )="MPATAT"
   1 )="CRKSAT"
   1 )="CONDKL":
   1 )="CDQJKL":
   1 )="CDEFGH":
   1 )="CDBTKL":
   1 )="CDAJKL"
   1 )="BABUMN":
   1 )="ABABAB"
   1 (div/by)>(10
   1 (div/by)*by:
   1 '" you hold down";
   1 '" while the program";
   1 '" to start the sums.";
   1 '" press EDIT,";
   1 '" is running.";
   1 '" different sums,";
   1 '" at any time,";
   1 '" and press 1.";
   1 '" Press  A for always ";b;" "'"
   1 '" CAPS SHIFT,";
   1 '" Always ";b;", or up to ";b;"? ":
   1  rem=leftovers
   1  or S to stop.
   1  div=number in pile
   1  by =number of boxes
   1  ans=limit, each box
   1  U for up to  ";b;" "
   1  R for remainders    "
   1  Another key, for the sums"
   1  3 for up to 30 objects ":
   1  2 for up to 20 objects "'"
   1   Setting the sums  I